home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / ENUMIMP.M < prev    next >
Encoding:
Modula Definition  |  1990-10-23  |  436 b   |  26 lines
  1. (*
  2.  * Prüft, ob das Enum-Elem korrekt importiert wird.
  3.  *)
  4.  
  5. DEFINITION MODULE A;
  6. TYPE SetGetMode = (setValue, getValue);
  7. END A.
  8.  
  9. MODULE T;
  10. FROM A IMPORT SetGetMode;
  11. IMPORT A;
  12. VAR mode: SetGetMode;
  13. BEGIN
  14.   mode:= getValue;
  15.   mode:= A.getValue;
  16. END T.
  17.  
  18. MODULE T;
  19. IMPORT A;
  20. FROM A IMPORT SetGetMode;
  21. VAR mode: SetGetMode;
  22. BEGIN
  23.   mode:= A.getValue;
  24.   mode:= getValue; (* alter Comp meldet "undekl. Bez." *)
  25. END T.
  26.